home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / domacnost a kancelar / autoit / autoit-v3-setup.exe / Examples / Helpfile / TraySetClick.au3 < prev    next >
Text File  |  2007-09-08  |  654b  |  30 lines
  1. #Include <Constants.au3>
  2. #NoTrayIcon
  3.  
  4. Opt("TrayMenuMode",1)    ; Default tray menu items (Script Paused/Exit) will not be shown.
  5.  
  6. $settingsitem    = TrayCreateMenu("Settings")
  7. $displayitem    = TrayCreateItem("Display", $settingsitem)
  8. $printeritem    = TrayCreateItem("Printer", $settingsitem)
  9. TrayCreateItem("")
  10. $aboutitem        = TrayCreateItem("About")
  11. TrayCreateItem("")
  12. $exititem        = TrayCreateItem("Exit")
  13.  
  14. TraySetState()
  15. TraySetClick(16)
  16.  
  17. While 1
  18.     $msg = TrayGetMsg()
  19.     Select
  20.         Case $msg = 0
  21.             ContinueLoop
  22.         Case $msg = $aboutitem
  23.             Msgbox(64,"About:","AutoIt3-Tray-sample")
  24.         Case $msg = $exititem
  25.             ExitLoop
  26.     EndSelect
  27. WEnd
  28.  
  29. Exit
  30.